home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / status_lag < prev    next >
Encoding:
Text File  |  2002-10-28  |  1.5 KB  |  65 lines
  1. # Adds a STATUS_LAG set, following the regular STATUS_* conventions.
  2. # By default, this will be assigned to %2.
  3.  
  4. # To change the format of the lag indicator, use /set status_lag.
  5. # To change how often the lag figure is updated, use /set status_lag_update.
  6.  
  7. @ status_lag = [\[Lag: %2\]]
  8. @ status_lag_update = 30
  9.  
  10. # isnumber() is wc's code.
  11. # epic4pre1.047 and up has a built in $isnumber().
  12. #alias isnumber {
  13. #   ^local isnum 1
  14. #   if (![$0]) 
  15. #      { @ isnum = 0 }
  16. #
  17. #   fec ($0) ii {
  18. #      if (!isdigit($ii) && ii != [-]) 
  19. #         { @ isnum = 0 }
  20. #   }
  21. #   @ function_return = isnum
  22. #}
  23.  
  24. ^on ^set "status_lag *" {
  25.    if ([$1]) {
  26.       @ status_lag = [$1-]
  27.       echo $banner Value of STATUS_LAG set to $1-
  28.    } else {
  29.       echo $banner Current value of STATUS_LAG is $(status_lag)
  30.    }
  31. }
  32.  
  33. ^on ^set "status_lag_update *" {
  34.    if ([$1]) {
  35.       if (isnumber($1)) {
  36.          @ status_lag_update = [$1]
  37.          echo $banner Value of STATUS_LAG_UPDATE set to $1
  38.       } else {
  39.          echo $banner Value of STATUS_LAG_UPDATE must be a number
  40.       }
  41.    } else {
  42.       echo $banner Current value of STATUS_LAG_UPDATE is $(status_lag_update)
  43.    }
  44. }
  45.  
  46. alias checklag {
  47.   setstatuslag ??
  48.   ^on ^raw_irc "$S PONG $S :$N" {
  49.       ^on ^raw_irc -"$S PONG $S :$N"
  50.       setstatuslag ${time()-checktime}
  51.       timer -refnum lag $(status_lag_update) checklag
  52.    }
  53.    @ checktime = time()
  54.    ^quote ping $S
  55. }
  56.  
  57. alias setstatuslag {
  58.   ^set status_user2 $sar(/%2/$[-2]*/$status_lag)
  59. }
  60.  
  61. ^timer -delete lag
  62. checklag
  63.  
  64. #psykotyk- nov 23/97
  65.